# ここから タイトルに全角文字が含まれるかのチェックコード
	# タイトルが2バイトコードを含んでいるかチェックする（海外のいたずら禁止）
	$A = $in{'TITLE'};
	jcode::convert(\$A, 'euc');
	# $A を文字単位に分割して配列 @chars に代入する
	$ascii = '[\x00-\x7F]';
	$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
	$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
	@chars = $A=~ /$ascii|$twoBytes|$threeBytes/og;
	# @chars に全角文字が含まれているか判定する
	for ($i=0; $i < @chars; $i++ ){
		$Aa = $chars[$i];		# １字ずつ取り出して文字種を判別する
		# 全角文字か？
		if ($Aa =~ /[\xA1-\xFE][\xA1-\xFE]/) {
			$jz++;
			$Az = $Az . $Aa;
		}
	}

	if ($jz == 0) {
		$Str1 = "タイトル欄に全角文字がありませんでした。<BR> 申\し訳ありませんが、タイトル欄に全角文字（漢字）を使ってもう一度書き込んでください。";
		&Error("$Str1") ;
	}
# ここまで タイトルに全角文字が含まれるかのチェックテスト用コード